home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 6.2 / 2000-12_-_Disc_6.2.iso / Patches / age2upa.exe / CABFILE / FILESUSA.CAB / Data / gamedata.drs / Unnamed File 000041.bina < prev    next >
Text File  |  1999-11-11  |  5KB  |  246 lines

  1. ;make sure we have allies
  2. (defrule
  3.     (difficulty < easy)
  4.     (game-time < 30)
  5.     (or
  6.         (player-computer any-ally)
  7.         (player-human any-ally)
  8.     )
  9. =>
  10.     (set-goal personality NOTICE)
  11.     (disable-self)
  12. )
  13.  
  14. (defrule
  15.     (game-time > 30)
  16.     (not (player-in-game any-ally) )
  17. =>
  18.     (set-goal personality 0)
  19.     (disable-self)
  20. )
  21.  
  22. (defrule
  23.     (taunt-detected any-ally 221)
  24. =>
  25.     (set-goal rush-control 3)
  26.     (set-goal personality 0)
  27.     (acknowledge-taunt this-any-ally 221)
  28.     (disable-self)
  29. )
  30.  
  31. (defrule
  32.     (goal personality NOTICE)
  33. =>
  34.     (set-goal personality 1)
  35.     (chat-to-player-using-id every-ally 22401)    ;221
  36.     (disable-self)
  37. )
  38.  
  39. ;don't rush if we're a feeder also no wonder
  40. (defrule
  41.     (goal personality 1)
  42.     (current-age < imperial-age)
  43.     (not (goal rush-control FEEDING) )
  44. =>
  45.     (set-goal rush-control FEEDING)
  46. )
  47.  
  48. (defrule
  49.     (goal personality 1)
  50.     (goal wonder-attempt POSSIBLE)
  51. =>
  52.     (set-goal wonder-attempt NO)
  53. )
  54.  
  55. (defrule
  56.     (goal personality 1)
  57.     (or
  58.         (and
  59.             (current-age == feudal-age)
  60.             (players-current-age any-ally >= castle-age)
  61.         )
  62.         (and
  63.             (current-age == castle-age)
  64.             (players-current-age any-ally == imperial-age)
  65.         )
  66.     )
  67. =>
  68.     (set-goal upgrade-conflict NOTICE)
  69. )
  70.  
  71. (defrule
  72.     (goal personality 1)
  73.     (building-type-count market > 0)
  74.     (players-population any-ally > 10)
  75. =>
  76.     (chat-to-player-using-id every-ally 22072)
  77.     (chat-to-player-using-id every-ally 22073)
  78.         ;"I shall tribute to thee as many resources as I can muster."
  79.         ;"Go forth and thrash our opponents!"
  80.     (disable-self)
  81. )
  82.  
  83. ;stop being a feeder if your allies are weenies
  84. (defrule
  85.     (goal personality 1)
  86.     (game-time > 900)
  87.     (or
  88.         (players-population every-ally <= 10)
  89.         (not (player-in-game any-ally) )
  90.     )
  91. =>
  92.     (set-goal personality 20)
  93.     (set-goal rush-control 4)
  94.     (chat-to-player-using-id every-ally 22074)
  95.         ;"Whoa, I'll not feed such puny allies! 'Tis every man for himself!"
  96.     (disable-self)
  97. )
  98.  
  99.     #load-if-not-defined TEAMS-LOCKED
  100.     (defrule
  101.         (goal personality 20)
  102.         (difficulty <= hard)
  103.         (players-stance any-human ally)
  104.     =>
  105.         (chat-to-player-using-id every-ally 22075)
  106.             ;"In fact, I'm switching sides! Fare thee well, losers."
  107.         (set-stance every-computer ally)
  108.         (set-stance this-any-human enemy)
  109.         (set-goal personality 10)
  110.         (disable-self)
  111.     )
  112.     #end-if
  113.  
  114. ;***********************
  115. ;TRIBUTE
  116. (defrule
  117.     (goal personality 1)
  118.     (goal 29 NO)
  119. =>
  120.     (set-goal 29 YES)    ; ok to tribute!
  121. )
  122.  
  123. (defrule
  124.     (goal personality 1)
  125.     (or
  126.         (goal upgrade-conflict NOTICE)
  127.         (town-under-attack)
  128.     )
  129. =>
  130.     (set-goal 29 NO)    ; NOT ok to tribute!
  131. )
  132.  
  133. (defrule
  134.     (goal personality 1)
  135.     (goal 29 YES)
  136.     (taunt-detected any-ally 4)
  137.     (wood-amount > 100)
  138.     (not (goal resource-needed WOOD) )
  139. =>
  140.     (release-escrow wood)
  141.     (tribute-to-player this-any-ally wood 100)
  142.     (acknowledge-taunt this-any-ally 4)
  143.     (chat-local-to-self "Tribute wood")
  144. )
  145.  
  146. (defrule
  147.     (goal personality 1)
  148.     (goal 29 YES)
  149.     (taunt-detected any-ally 3)
  150.     (food-amount > 100)
  151.     (not (goal resource-needed FOOD) )
  152. =>
  153.     (release-escrow food)
  154.     (tribute-to-player this-any-ally food 100)
  155.     (acknowledge-taunt this-any-ally 3)
  156.     (chat-local-to-self "Tribute food")
  157. )
  158.  
  159. (defrule
  160.     (goal personality 1)
  161.     (goal 29 YES)
  162.     (taunt-detected any-ally 5)
  163.     (gold-amount > 100)
  164.     (not (goal resource-needed GOLD) )
  165. =>
  166.     (release-escrow gold)
  167.     (tribute-to-player this-any-ally gold 100)
  168.     (acknowledge-taunt this-any-ally 5)
  169.     (chat-local-to-self "Tribute gold")
  170. )
  171.  
  172. (defrule
  173.     (goal personality 1)
  174.     (goal 29 YES)
  175.     (taunt-detected any-ally 6)
  176.     (stone-amount > 100)
  177.     (not (goal resource-needed STONE) )
  178. =>
  179.     (release-escrow stone)
  180.     (tribute-to-player this-any-ally stone 100)
  181.     (acknowledge-taunt this-any-ally 6)
  182.     (chat-local-to-self "Tribute stone")
  183. )
  184.  
  185. (defrule
  186.     (goal personality 1)
  187.     (goal 29 YES)
  188.     (timer-triggered t-tribute)
  189.     (player-in-game any-ally)
  190.     (wood-amount > 800)
  191.     (not (goal resource-needed WOOD) )
  192. =>
  193.     (release-escrow wood)
  194.     (tribute-to-player this-any-ally wood 100)
  195.     (chat-to-player-using-id this-any-ally 22076)
  196.         ;"Here art some wood!"
  197.     (chat-local-to-self "Tribute wood")
  198. )
  199.  
  200. (defrule
  201.     (goal personality 1)
  202.     (goal 29 YES)
  203.     (timer-triggered t-tribute)
  204.     (player-in-game any-ally)
  205.     (food-amount > 800)
  206.     (not (goal resource-needed FOOD) )
  207. =>
  208.     (release-escrow food)
  209.     (tribute-to-player this-any-ally food 100)
  210.     (chat-to-player-using-id this-any-ally 22077)
  211.         ;"Here art some food!"
  212.     (chat-local-to-self "Tribute food")
  213. )
  214.  
  215. (defrule
  216.     (goal personality 1)
  217.     (goal 29 YES)
  218.     (timer-triggered t-tribute)
  219.     (player-in-game any-ally)
  220.     (gold-amount > 800)
  221.     (not (goal resource-needed GOLD) )
  222. =>
  223.     (release-escrow gold)
  224.     (tribute-to-player this-any-ally gold 100)
  225.     (chat-to-player-using-id this-any-ally 22078)
  226.         ;"Here art some gold!"
  227.     (chat-local-to-self "Tribute gold")
  228. )
  229.  
  230. (defrule
  231.     (goal personality 1)
  232.     (goal 29 YES)
  233.     (timer-triggered t-tribute)
  234.     (player-in-game any-ally)
  235.     (stone-amount > 800)
  236.     (not (goal resource-needed STONE) )
  237. =>
  238.     (release-escrow stone)
  239.     (tribute-to-player this-any-human ally 100)
  240.     (chat-to-player-using-id this-any-ally 22079)
  241.         ;"Here art some stone!"
  242.     (chat-local-to-self "Tribute stone")
  243. )
  244.  
  245.  
  246.